home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Online / Iris / Poll.irx < prev    next >
Text File  |  1998-03-18  |  378b  |  13 lines
  1. /* REXX script to check periodically for new mail */
  2. /* $VER: Poll.irx V1.1 (supplied with Iris V1.2b) */
  3.  
  4. if ~show('l','rexxsupport.library') then addlib('rexxsupport.library',0,-30,0)
  5. do while show('P','IRIS') & showlist('H','TCP')
  6.    address IRIS
  7.    GETMAIL
  8.    SENDMAIL IMMED
  9.    address command
  10.    WAIT 3 MINS
  11. end
  12. say 'Poll.irx ending - TCP/IP and/or Iris is not available.'
  13.